home *** CD-ROM | disk | FTP | other *** search
/ Killer Drive 64 8 / Killer-Drive_64_08_1998_-_de_Side_B.d64 / rhea gme (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  101 lines
  1. 0 ifa=0thena=1:load"rhea msc",8,1
  2. 1 poke808,225:poke53280,11:poke53281,11:print"[147][142]":x=-1:x=-1:z=11:gosub2:x=-1:z=9:gosub2:x=-1:z=6:gosub2:x=-1:z=5:gosub2:x=-1:z=3:gosub2:x=-1:z=0:gosub2:gosub4:goto5
  3. 2 x=x+1:gosub4:print""tab(x)"[180]":printtab(x)"[180]":printtab(x)"[180]":gosub4:print""tab(x)"[212]":printtab(x)"[212]":printtab(x)"[212]":gosub4:print""tab(x)"[194]":printtab(x)"[194]":printtab(x)"[194]":gosub4:ifx=zthenreturn
  4. 3 print""tab(x)"[200]":printtab(x)"[200]":printtab(x)"[200]":gosub4:print""tab(x)"[217]":printtab(x)"[217]":printtab(x)"[217]":gosub4:print""tab(x)"[170]":printtab(x)"[170]":printtab(x)"[170]":print""tab(x)" ":printtab(x)" ":printtab(x)" ":goto2
  5. 4 foro=1to10:nexto:return
  6. 5 print"[183]":gosub4:print"[197]":gosub4:print"[196]":gosub4:print"[195]":gosub4:print"[198]":gosub4:print"[210]":gosub4:print"[175]":gosub4:print" ":gosub4:print"[183]":gosub4:print"[197]":gosub4:print"[196]":gosub4:print"[195]":gosub4:print"[183]":gosub4:print"[197]":gosub4:print"[196]":gosub4:print"[195]":gosub4
  7. 6 print"[198]":gosub4:print"[210]":gosub4:print"[175]":gosub4:print" ":gosub4:print"[183]":gosub4:print"[197]":gosub4:print"[196]":gosub4:print"[195]":gosub4:print"[198]":gosub4:print"[210]":gosub4:print"[175]":gosub4:print" ":gosub4:print"[183]":gosub4
  8. 7 print"[197]":gosub4:print"[196]":gosub4:print"[195]":gosub4:print"[198]":gosub4:print"[210]":gosub4:print"[175]":gosub4:print"[183]":gosub4:print"[197]":gosub4:print"[196]":gosub4:print"[195]":gosub4:print"[198]":gosub4:print"[210]":gosub4:print"[175]":gosub4
  9. 8 print" ":gosub4:print"[183]":gosub4:print"[197]":gosub4:print"[196]":gosub4:print"[195]":gosub4:print"[183]":gosub4:print"[183]":gosub4:print"[197]":gosub4:print"[196]":gosub4:print"[195]":gosub4:print"[198]":gosub4:print"[210]":gosub4:print"[175]":gosub4
  10. 9 print" ":gosub4:print"[183]":gosub4:print"[197]":gosub4:print"[196]":gosub4:print"[195]":gosub4:print"[183]":gosub4:print"[205]":print"[206]":print"[205]":poke56325,0:print"","(w) 1997 by jtr":gosub99:poke56325,56:forx=1to500:next
  11. 10 print"(a)nleitung":print"(s)piel beginnen":print"wie lautet deine wahl?";
  12. 11 geta$:ifa$=""then11
  13. 12 ifa$="a"then15
  14. 13 ifa$="s"then23
  15. 14 goto11
  16. 15 print"[147]            rhea - anleitung            ":print"im jahre 2367 begann der krieg zwischen":print"der erde und ihren ehemaligen interpla-":print"netarischen kolonien auf den saturntra-":print"banten. auf rhea, titan und japetus wur-";
  17. 16 print"den naemlich tief im gestein grosse men-";:print"gen an gebundenen sauerstoff entdeckt.":print"die erde, die nur noch knappe ressourcen";:print"von der doch so wichtigen atemluft be-":print"sass, versuchte mit allen mitteln herr"
  18. 17 print"ueber die drei abtruennigen satelliten":print"zu werden. die krieg entschied sich je-":print"doch zugunsten der verteidiger.":print"rhea, titan und japetus gruendeten eine":print"konfoederation, die das gesamte saturn-"
  19. 18 print"areal einbeschloss. 18 jahre spaeter ge-";:print"schah das unglueck: ein meteor schlug":print"auf rhea ein, zerstoerte einen grossteil";:print"der fabrikanlagen und brachte tausenden":print"von kolonialisten den tod.":gosub96
  20. 19 print"[147]            rhea - anleitung           [146]":print"so wurde der einst reiche konfoedera-":print"tionspartner zu einem ort der armut und":print"anarchie. da ein wirtschaftlicher unter-";:print"gang rheas sich schaedlich auf die ge-"
  21. 20 print"samte saturn-konfoederation auswirken":print"wuerde, schickt man dich - einen gebuer-";:print"tigen titanier - zu rhea, damit du als":print"praesident den wiederaufbau der produk-":print"tionsanlagen organisierst.":print"man gewaehrt dir zehn perioden (das sind";
  22. 21 print"ca. viereinhalb irdische jahre) an zeit,";:print"um aus rhea wieder den wichtigen wirt-":print"schaftsfaktor der konfoederation zu ma-":print"chen, der er einmal war.":print"solltest du es in der zeit nicht schaf-":print"fen, oder sollten kontrarevolutionaere"
  23. 22 print"rebellen deine herrschaft stuerzen, so":print"wird man einen neuen praesidenten waeh-":print"len und dich wieder nach titan schicken.":gosub96
  24. 23 sys32768:poke53280,0:poke53281,0
  25. 24 print"[147][146]ein neues spiel beginnt...":forx=1to1500:next:l1$="[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]":l2$="[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][219][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]":l3$="[194]                    [194]                 [194]"
  26. 25 l4$="[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":p=5000:m=2000000:f=5000:t=10:z$=chr$(34):gosub84:t=11:goto27
  27. 26 gosub84
  28. 27 ift<2then75
  29. 28 print"[147]     der beginn einer neuen periode     [146]":t=t-1:x=-1:print"wieviel von dem budget fuehren sie ihrem";
  30. 29 input"[145]eigenem vermoegen zu";x:ifx<0then29
  31. 30 m=m-x:r=r+x:print"ihr privatvermoegen belaeuft sich jetzt also auf"r"credits.":gosub96:ifr>=((rnd(8)*3)-1)*mthengosub88
  32. 31 print"[147]       bericht aus den werkhallen       ":a=int(rnd(3)*3)+1:ifa=1thenprint"es wurden mehr sauerstoffeinheiten her-"
  33. 32 ifa=1thenprint"gestellt als erwartet.":goto34
  34. 33 print"die menge der hergestellten sauerstoff-":print"einheiten ist zufriedenstellend."
  35. 34 ifa=1thenf=f+2000:p=p+5000:m=m+10000
  36. 35 ifa=2thenx=-1:print"es werden dringend raumtransporter be-"
  37. 36 ifa=2thenprint"noetigt. kosten: 10000 credits pro ein-"
  38. 37 ifa=2thenprint"heit. wieviele transporter wollen sie"
  39. 38 ifa=2theninput"[145]anschaffen";x:f=500*x:ifx<0then38
  40. 39 ifa=2andx>0thenm=m-(x*10000)
  41. 40 ifa=3thenprint"die rebellen sabotieren ihre anlagen.":gosub67
  42. 41 ifp<1000thengosub88
  43. 42 gosub96:print"[147]":gosub84:print"[147]          stand der ressourcen          ":x=int(rnd(3)*3)+1:ifx=1thengosub49
  44. 43 ifx=2thengosub50
  45. 44 ifx=3thengosub53
  46. 45 gosub96:goto26
  47. 46 print"[147]      sie haben das spiel gewonnen      ":print"die sauerstoffproduktion ist ergiebiger":print"denn je. sie sind von titan nicht mehr":print"abhaengig. sie versorgen nun enceladus,":print"thetys und dione mit ihren rohstoffen."
  48. 47 print"sie haben rheas wirtschaftskapital sowie";:print"ihr eigenes enorm gesteigert. ausserdem":print"haben sie die urspruengliche bevoelke-":print"rungsdichte wieder hergestellt.":print"ob dieses erfolges ernennt man sie zum"
  49. 48 print"praesidenten auf lebenszeit. herzlichen":print"glueckwunsch!":gosub96:run24
  50. 49 print"es ist noch genuegend sauerstoff vorhan-";:print"den.":p=p+2000:m=m+100000:return
  51. 50 u1=int((5*(10^5)*rnd(1))+5*(10^5)):print"es wird ein ueberschuss an sauerstoff":print"produziert, den sie nach dione exportie-";:print"ren. das bringt ihnen"u1"credits":x=-1:print"ein. wieviel prozent davon wollen sie"
  52. 51 input"[145]sich aneignen";x:ifx<0orx>100then51
  53. 52 m=m+int(u1-(u1*x/100)):r=r+int(u1*x/100):return
  54. 53 print"ein leck im tanklager liess fast den ge-";:print"samten sauerstoff entweichen. was geden-";:print"ken sie zu tun?":print"(a) die reparatur finanzieren":print"(b) versuchen, mit den reserven auszu-":print"    kommen":print"(c) sauerstoff von titan importieren"
  55. 54 getc$:ifc$=""then54
  56. 55 ifc$<>"a"andc$<>"b"andc$<>"c"then54
  57. 56 ifc$="a"thenm=m-int(20000*rnd(8)):p=p-int(100*rnd(8))
  58. 57 ifc$="b"thenp=p-int(2000*rnd(8)):m=m-int(rnd(8)*10000)
  59. 58 ifc$="c"thenm=m-int(rnd(3)*400000)
  60. 59 ifm<0thenm=0:gosub88
  61. 60 ifp<100thenp=100
  62. 61 return
  63. 62 m=m-int((10^5)*rnd(1))+10^5:ifi>=p*.8thenprint"sie sind gestuerzt worden. sie haben das";
  64. 63 ifi>=p*.8thenprint"spiel leider verloren.":gosub96:run24
  65. 64 ifrnd(8)<.7thenprint"sie behaupten ihre macht.":gosub96:return
  66. 65 print"aufgrund ihrer tyrannischen regierung":print"werden sie von rhea verbannt.":gosub96:run24:inputx:ifx=0thengosub88
  67. 66 m=m-x*10000:return
  68. 67 print"was gedenken sie zu tun?":print"(a) die sicherheitskraefte verstaerken":print"(b) den sauerstoff fuer verdaechtige":print"    rationieren":print"(c) die angelegenheit ignorieren"
  69. 68 geta$:ifa$=""then68
  70. 69 ifa$<>"a"anda$<>"b"anda$<>"c"then68
  71. 70 ifa$="a"theni=i-int(1000*rnd(2)):m=m-int((10^4*rnd(1))+10^4):ifi<1theni=0
  72. 71 ifa$="c"thenf=f-int(rnd(4)*3000)
  73. 72 ifa$="b"theni=i+int(500*rnd(7))
  74. 73 iff<1thenf=0
  75. 74 return
  76. 75 print"[147]    ihre zeit ist leider abgelaufen!    ":print"sie konnten ihr volk leider nicht zu-":print"friedenstellen. es wird ein neuer prae-":print"sident gewaehlt.":gosub96:run24
  77. 76 print"[147]     der sauerstoff geht zur neige!     ":print"was sollen deine kolonialisten jetzt":print"bloss tun?":print"(a) die luft anhalten":print"(b) du importierst sauerstoff von rhea":print"(c) du steigerst die sauerstoffproduk-":print"    tion"
  78. 77 getb$:ifb$=""then77
  79. 78 ifb$<>"a"andb$<>"b"andb$<>"c"then77
  80. 79 ifb$="a"thengosub88
  81. 80 ifb$="b"thenm=m-p*250
  82. 81 ifb$="c"thenm=m-p*200:p=int(p*.95)
  83. 82 ifm<0thenm=0:gosub88
  84. 83 return
  85. 84 print"[147]   der lagebericht fuer diese periode   [146]":print""l1$;:forx5=1to5:printl3$;l2$;:next:printl3$;l4$:forx5=1to150:next:print"kolonialisten",""p:print"budget",,""m"cr.":print"eigenes vermoegen",""r"cr.":print"sauerstoffeinheiten"f
  86. 85 print"regierungszeit noch"t"perioden":print"rebellen",,""i:gosub96:ifp=>8000andm=>8000000andf>8000andr>1500000then46
  87. 86 iff<1then76
  88. 87 return
  89. 88 print"[147]      eine rebellion bahnt sich an      ":print"was wollen sie unternehmen?":print"(a) rhea verlassen und ins exil gehen":print"(b) den aufsaessigen ihr privates ver-":print"    moegen ueberlassen":print"(c) widerstand leisten"
  90. 89 getd$:ifd$=""then89
  91. 90 ifd$<>"a"andd$<>"b"andd$<>"c"then89
  92. 91 ifd$="a"then95
  93. 92 ifd$="b"thenm=m+r:r=0
  94. 93 ifd$="c"thengosub62
  95. 94 i=i+int(rnd(8)*p/5):return
  96. 95 print"sie koennen entkommen, haben das spiel  jedoch verloren.":gosub96:run24
  97. 96 print"":print"        bitte leertaste druecken       ";:poke2023,160
  98. 97 getao$:ifao$<>" "then97
  99. 98 return
  100. 99 print"dieses spiel wird vertrieben von":print"b-soft":print"mike witschi und maik holstein":print"henningstr. 13":print"21337 lueneburg":return
  101.